home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / happypas / linenumb.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-30  |  1KB  |  30 lines
  1. {*********************************************************************
  2.  *  *** テキストファイルに行番号を付与するプログラム ***             *
  3.  *         (InputFileテキストファイルに行番号を付与してoutputに出力) *
  4.  *                                                                   *
  5.  *        HAPPyのサンプルプログラム                                  *
  6.  *          (作者  浅野比富美 Public Domain Software)                *
  7.  *********************************************************************}
  8.  
  9. program LineNumber(InputFile,output) ;
  10.   const keta      = 4          ;   { 行番号の桁数 }
  11.   var   InputFile : text       ;   { 入力テキストファイル }
  12.         ch        : char       ;
  13.         Ln        : integer    ;   { 行番号 }
  14. begin
  15.   reset(InputFile)             ;   { 入力ファイルを検査モードにする }
  16.   Ln := 0                      ;
  17.   while not eof(InputFile) do
  18.   begin
  19.     Ln := Ln + 1               ;   { 行番号更新 }
  20.     write(output,Ln:keta,': ') ;   { 行番号出力 }
  21.     while not eoln(InputFile) do   { その行の1文字ずつを読み書き }
  22.     begin
  23.       read(InputFile,ch)       ;
  24.       write(output,ch)
  25.     end                        ;
  26.     readln(InputFile)          ;   { 改行マークを読み飛ばす }
  27.     writeln(output)                { 改行する               }
  28.   end
  29. end.
  30.